Private Sub UserForm_Initialize()

    Dim  As Range

    Set  = Range("C3", Cells(Rows.Count, "C").End(xlUp))

    ListBox1.List = .Value
    Image1.SpecialEffect = fmSpecialEffectSunken

End Sub
